home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / arexx-scripts / arexx-pack / rexxreqtoolsv12c.lha / RxReqTools / WbLink.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-07-22  |  597 b   |  21 lines
  1. /* Makelink von der Workbench aus (mit ToolManager) */
  2.  
  3. parse arg Para
  4.  
  5. if para = "" then do
  6.     rtezrequest("Parameterangabe fehlt")
  7.     exit
  8. end
  9.  
  10. Trenn = lastpos("/", Para)
  11. if Trenn = 0 then Trenn = lastpos(":", Para)
  12.  
  13. SrcPfad = Left(Para, Trenn)
  14. if pos('"', SrcPfad) =1 then SrcPfad = substr(SrcPfad, 2)
  15. SrcName = Right(Para, Length(para) -Trenn)
  16. if pos('"', SrcName) = length(SrcName) then SrcName = substr(SrcName, 1, length(ScrName)-1)
  17.  
  18. LinkName = rtfilerequest(SrcPfad,SrcName,"Bitte Namen des Links angeben", "Link anlegen")
  19.  
  20. address command 'makelink' '"' || LinkName || '"' Para 'force'
  21.